home *** CD-ROM | disk | FTP | other *** search
/ Aminet 34 / Aminet 34 (2000)(Schatztruhe)[!][Dec 1999].iso / Aminet / misc / emu / AmiMasterGear.lha / amimastergear / Install < prev    next >
Text File  |  1999-10-25  |  9KB  |  198 lines
  1. ; ·--------------------------------------------------------·
  2. ; |           Install script  for AmiMasterGear            |
  3. ; |                Written by Tomas Amsrud                 |
  4. ; |         AmiMasterGear is © Juan Antonio Gómez          |
  5. ; |   Send Translations to me at: gdwarf@applausenett.no   |
  6. ; `--------------------------------------------------------'
  7. ; $Ver: AmiMasterGear Installer V1.12 (19971004)
  8.  
  9. ;***************************************************************************
  10. ;*** Something Default
  11. ;***************************************************************************
  12.  
  13. (set @default-dest "")
  14. (set emunam "AmiMasterGear")       ; Name of Program to Install
  15. (set emuver "0.62")                ; Emulator Version
  16. (set insver "1.12")                ; Install Script Version
  17. (set emuaut "Juan Antonio Gómez")  ; Emulator Author
  18. (set insaut "Tomas Amsrud")        ; Install Script Maker
  19.  
  20. ;***************************************************************************
  21. ;*** Choose Language
  22. ;***************************************************************************
  23.  
  24. (complete 0)
  25. (set lang
  26.       (askchoice (prompt "\nWhat Language Do you want to use???")
  27.                  (help @askchoise-help)
  28.                  (choices "English" "German" "French" "Italian" "Español" "Norsk" "Svensk " "Dutch")))
  29.  
  30. ;*****************
  31. ;**** ENGLISH ****
  32. ;*****************
  33. (set #about (cat "\n\n\nWelcome to\n\nInstalation of " emunam " v" emuver "\n" emunam " is ©" emuaut "\n\nInstalation script v" insver "\nby " insaut))
  34. (set #where (cat "\nWhere do you want to install " emunam "? (A drawer will be created)"))
  35. (set #whaticon   "\nWhat kind of Icons do you want to install?")
  36. (set #filecopy   ". .. ....Copying Files.... .. .")
  37. (set #doccopy    ". .. ....Copying Docs.... .. .")
  38. (set #packicons  ". .. ....Un-Packing Icons.... .. .")
  39. (set #copyicons  ". .. ....Copying Icons.... .. .")
  40. (set #cleanup    ". .. ....Cleaning Up.... .. .")
  41.  
  42. ;*****************
  43. ;**** German  **** 'German' Translation done by Richard Körber
  44. ;*****************
  45. (if (= lang 1)
  46. ((set #about (cat "\n\n\nWillkommen zu der\n\nInstallation von " emunam " V" emuver "\n" emunam " ist ©" emuaut "\n\nInstaller-Skript V" insver "\nvon " insaut "\n\nDeutsche Übersetzung von Richard Körber"))
  47.  (set #where (cat "\nWohin soll " emunam " installiert werden? (Verzeichnis wird angelegt)"))
  48.  (set #whaticon   "\nWelche Piktogramme möchten Sie installieren?")
  49.  (set #filecopy   ". .. ....Kopiere Dateien.... .. .")
  50.  (set #doccopy    ". .. ....Kopiere Anleitungen.... .. .")
  51.  (set #packicons  ". .. ....Entpacke Piktogramme.... .. .")
  52.  (set #copyicons  ". .. ....Kopiere Piktogramme.... .. .")
  53.  (set #cleanup    ". .. ....Räume auf.... .. .")
  54. ))
  55.  
  56. ;*****************
  57. ;**** French  **** French translation made by Pascal Willano
  58. ;*****************
  59. (if (= lang 2)
  60. ((set #about (cat "\n\n\nBienvenu à\n\nl'installation d'" emunam " v" emuver "\n" emunam " est ©" emuaut "\n\nScript d'installation v" insver "\nby " insaut "\n\nTraduit en Français par Pascal WILLANO"))
  61.  (set #where (cat "\nOù voulez vous installer " emunam "? (Un répertoire sera créé)"))
  62.  (set #whaticon   "\nQuel type d'icônes voulez vous installer?")
  63.  (set #filecopy   ". .. ....Copie des fichiers.... .. .")
  64.  (set #doccopy    ". .. ....Copie de la Documention.... .. .")
  65.  (set #packicons  ". .. ....Decompression des icônes.... .. .")
  66.  (set #copyicons  ". .. ....Copie des icônes.... .. .")
  67.  (set #cleanup    ". .. ....Nétoyage.... .. .")
  68. ))
  69.  
  70. ;*****************
  71. ;**** Italian **** Italian Translation done by Simone Bevilacqua
  72. ;*****************
  73. (if (= lang 3)
  74. ((set #about (cat "\n\n\nBenvenuto\n\nal programma di installazione di " emunam " v" emuver "\n" emunam " e' ©" emuaut "\n\nScript di installazione v" insver "\ndi " insaut "\n\nTraduzione Italiana di Simone Bevilacqua"))
  75.  (set #where (cat "\nDove vuoi che " emunam " sia installato? (verra' creata un' apposita directory)"))
  76.  (set #whaticon   "\nChe tipo di icone vuoi installare?")
  77.  (set #filecopy   ". .. ....Copia files in corso.... .. .")
  78.  (set #doccopy    ". .. ....Copia documentazione in corso.... .. .")
  79.  (set #packicons  ". .. ....Decompressione icone in corso.... .. .")
  80.  (set #copyicons  ". .. ....Copia icone in corso.... .. .")
  81.  (set #cleanup    ". .. ....Eliminazione file temporanei.... .. .")
  82. ))
  83.  
  84. ;*****************
  85. ;**** Español **** By Juan Antonio Gómez
  86. ;*****************
  87. (if (= lang 4)
  88. ((set #about (cat "\n\nBienvenido al\n\nInstalador de " emunam " v" emuver "\n" emunam " es ©" emuaut "\n\nScript de Instalación v" insver "\nby " insaut "\n\nTraducción Española por " emuaut))
  89.  (set #where (cat "\n¿Donde quiere instalar " emunam "? (Un directorio será creado)"))
  90.  (set #whaticon   "\n¿Que tipo de iconos quiere instalar?")
  91.  (set #filecopy   ". .. ....Copiando Ficheros.... .. .")
  92.  (set #doccopy    ". .. ....Copiando Documentación.... .. .")
  93.  (set #packicons  ". .. ....Descomprimiendo Iconos.... .. .")
  94.  (set #copyicons  ". .. ....Copiando Iconos.... .. .")
  95.  (set #cleanup    ". .. ....Borrando.... .. .")
  96. ))
  97.  
  98. ;*****************
  99. ;****  Norsk  **** By Tomas Amsrud (gdwarf@applausenett.no)
  100. ;*****************
  101. (if (= lang 5)
  102. ((set #about (cat "\n\nVelkommen til\n\nInstaleringen av " emunam " v" emuver "\n" emunam " er ©" emuaut "\n\nInstalasjon script v" insver "\nav " insaut "\n\nNorsk oversetting av " insaut))
  103.  (set #where (cat "\nHvor vil du instalere " emunam "? (En katalog vil bli lagd)"))
  104.  (set #whaticon   "\nHva slags iconer vil du Instalere?")
  105.  (set #filecopy   ". .. ....Kopierer Filer.... .. .")
  106.  (set #doccopy    ". .. ....Kopierer Dokumentasjon.... .. .")
  107.  (set #packicons  ". .. ....PakkerOpp Iconer.... .. .")
  108.  (set #copyicons  ". .. ....Kopierer Iconer.... .. .")
  109.  (set #cleanup    ". .. ....Rydder Opp.... .. .")
  110. ))
  111.  
  112. ;*****************
  113. ;**** Sweden  **** Swedish Translation done by Niklas Berg.
  114. ;*****************
  115. (if (= lang 6)
  116. ((set #about (cat "\n\n\nVälkommen till\n\n" emunam " v" emuver " installationsprogram\n" emunam " is ©" emuaut "\n\nInstalations skript v" insver "\nby " insaut "\n\nSwedish Translation done by Niklas Berg."))
  117.  (set #where (cat "\nVar vill du installera " emunam "? (En katalog kommer att skapas)"))
  118.  (set #whaticon   "\nVilken slags ikoner vill du installera?")
  119.  (set #filecopy   ". .. ....Kopierar Filer.... .. .")
  120.  (set #doccopy    ". .. ....Kopierar Dokumentation.... .. .")
  121.  (set #packicons  ". .. ....Packar upp Ikoner.... .. .")
  122.  (set #copyicons  ". .. ....Kopierar Ikoner.... .. .")
  123.  (set #cleanup    ". .. ....Städar Upp.... .. .")
  124. ))
  125.  
  126. ;*****************
  127. ;****  Dutch  **** Dutch Translation done by Roderick Mouthaan.
  128. ;*****************
  129. (if (= lang 7)
  130. ((set #about (cat "\n\n\nWelkom bij de\n\nInstallatie van " emunam " v"emuver "\n" emunam " is ©" emuaut "\n\nInstallatie script v" insver "\ndoor " insaut "\n\nNederlandse vertaling door Roderick Mouthaan"))
  131.  (set #where (cat "\nWaar wil je " emunam " installeren? (Een lade zalgecreëerd worden)"))
  132.  (set #whaticon   "\nWelk type icons wil je installeren?")
  133.  (set #filecopy   ". .. ....Kopiëren van bestanden.... .. .")
  134.  (set #doccopy    ". .. ....Kopiëren van documentatie.... .. .")
  135.  (set #packicons  ". .. ....Uitpakken van icons.... .. .")
  136.  (set #copyicons  ". .. ....Kopiëren van icons.... .. .")
  137.  (set #cleanup    ". .. ....Opruimen.... .. .")
  138. ))
  139.  
  140. ;***************************************************************************
  141. ;*** Install part
  142. ;***************************************************************************
  143. (complete 8)
  144. (message #about)
  145. (complete 9)
  146. (welcome)
  147.  
  148. (complete 10)
  149. (set dester
  150.      (askdir (prompt #where)
  151.              (help @askdir-help)
  152.              (default "Ram:")))
  153. (set msxdest
  154.   (tackon dester "AmiMasterGear"))
  155.  
  156. ;***************************************************************************
  157. ;*** Copying files
  158. ;***************************************************************************
  159. (complete 20)
  160. (working #filecopy)
  161. (copyfiles
  162.    (source "AmiMasterGear")
  163.    (dest msxdest)
  164.    (pattern "#?")
  165. )
  166. (complete 30)
  167. (working #filecopy)
  168. (copyfiles
  169.    (source "AmiMasterGear.info")
  170.    (dest dester)
  171. )
  172. (complete 40)
  173. (working #filecopy)
  174. (if (<> (exists ("S:AmiMasterGear.Key") (noreq)) 1)
  175.     (if (= (exists ("S/AmiMasterGear.Key") (noreq)) 1)
  176.         (copyfiles
  177.             (source "S/AmiMasterGear.Key")
  178.             (dest "S:")
  179.         )
  180.     )
  181. )
  182. (complete 50)
  183. (working #filecopy)
  184. (if (<> (exists ("Libs:Stc.library") (noreq)) 1)
  185.    (copyfiles
  186.       (source "Libs/Stc.library")
  187.       (dest "Libs:")
  188.    )
  189. )
  190. (complete 60)
  191. (complete 70)
  192. ;***************************************************************************
  193. ;*** Clean up Part
  194. ;***************************************************************************
  195. (complete 90)
  196. (working #cleanup)
  197. (complete 100)
  198.